﻿<Serializable()> Public Class HourEmis
    Implements ICloneable

    ''' <summary>
    ''' 
    ''' 时间
    ''' </summary>
    ''' <remarks></remarks>
    Private m_HDate As Date
    ''' <summary>
    ''' 排放源强 g/s
    ''' </summary>
    ''' <remarks></remarks>
    Private m_SourceEmis As Double
    ''' <summary>
    ''' 烟气温度 K 只对点源有用
    ''' </summary>
    ''' <remarks></remarks>
    Private m_SourceTemp As Double
    ''' <summary>
    ''' 烟气速度只对点源有用
    ''' </summary>
    ''' <remarks></remarks>
    Private m_SourceExit As Double
    ''' <summary>
    ''' 开始和结束时间
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Hdate() As Date
        Get
            Return Me.m_HDate
        End Get
        Set(ByVal value As Date)
            Me.m_HDate = value
        End Set
    End Property
    ''' <summary>
    ''' 排放源强 g/s
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SourceEmis() As Double
        Get
            Return Me.m_SourceEmis
        End Get
        Set(ByVal value As Double)
            Me.m_SourceEmis = value
        End Set
    End Property
    ''' <summary>
    ''' 烟气温度 K 
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SourceTemp() As Double
        Get
            Return Me.m_SourceTemp
        End Get
        Set(ByVal value As Double)
            Me.m_SourceTemp = value
        End Set
    End Property
    ''' <summary>
    ''' 烟气速度
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SourceExit() As Double
        Get
            Return Me.m_SourceExit
        End Get
        Set(ByVal value As Double)
            Me.m_SourceExit = value
        End Set
    End Property
    Public Function Clone() As Object Implements System.ICloneable.Clone

        Dim obj As New HourEmis

        obj.SourceEmis = Me.m_SourceEmis
        obj.SourceExit = Me.m_SourceExit
        obj.SourceTemp = Me.m_SourceTemp
        obj.Hdate = Me.m_HDate

        Return obj
    End Function

End Class
